home *** CD-ROM | disk | FTP | other *** search
/ Swimwear Illustrated / Swimwear Illustrated.iso / mac / MAIN8 / MILIM8.DIR / 00026_Script_26 < prev    next >
Text File  |  1996-02-22  |  662b  |  37 lines

  1. on startmovie
  2.   global spplace 
  3.   put 50 into spplace
  4. end startmovie
  5.  
  6. on getroll
  7.   repeat with x = 6 to 9
  8.     if rollover(x) then exit repeat
  9.   end repeat
  10.   if rollover(x) then return x
  11.   else return 50
  12. end if
  13. end getroll
  14.  
  15.  
  16. on rollme
  17. global spplace
  18. if not soundbusy(1) then
  19. sound stop 1
  20. sound playfile 1, "milimar.aif"
  21. end if
  22.  
  23. put getroll() into spplace
  24.  
  25. if spplace <> 50 then
  26. repeat with group = 6 to 9
  27. SET the VISIBLE OF sprite group+4 to false
  28. end repeat
  29. SET the VISIBLE OF sprite spplace+4 to true
  30. else
  31. repeat with group = 6 to 9
  32. SET the VISIBLE OF sprite group+4 to false
  33. end repeat
  34. end if
  35. UPDATESTAGE
  36. go loop
  37. end rollme